home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / Astromacronomer ••• / BASIC Runtime / BASIC Runtime.rsrc / CODE_11.txt < prev    next >
Text File  |  1986-09-30  |  7KB  |  131 lines
  1. # near model CODE resource
  2. # jump table entries: 3424-3433 (10 of them)
  3. export_428:
  4. 00000000  206F 000C                movea.l    A0, [A7 + 0xC]
  5. 00000004  2050                     movea.l    A0, [A0]
  6. 00000006  7003                     moveq.l    D0, 0x03
  7. 00000008  C028 0044                and.b      D0, [A0 + 0x44]
  8. 0000000C  72FC                     moveq.l    D1, 0xFFFFFFFC
  9. 0000000E  C338 0946                and.b      [0x00000946 /* ChooserBits */], D1
  10. 00000012  8138 0946                or.b       [0x00000946 /* ChooserBits */], D0
  11. 00000016  223C 000C 0000           move.l     D1, 0xC0000
  12. 0000001C  6016                     bra        +0x18 /* 00000034 */
  13. export_429:
  14. 0000001E  223C 0004 8004           move.l     D1, 0x48004
  15. 00000024  600E                     bra        +0x10 /* 00000034 */
  16. export_430:
  17. 00000026  223C 0008 0008           move.l     D1, 0x80008
  18. 0000002C  6006                     bra        +0x8 /* 00000034 */
  19. export_431:
  20. 0000002E  223C 0004 000C           move.l     D1, 0x4000C
  21. label00000034:
  22. 00000034  7003                     moveq.l    D0, 0x03
  23. 00000036  C038 0946                and.b      D0, [0x00000946 /* ChooserBits */]
  24. 0000003A  602A                     bra        +0x2C /* 00000066 */
  25. export_432:
  26. 0000003C  223C 0004 8000           move.l     D1, 0x48000
  27. 00000042  6016                     bra        +0x18 /* 0000005A */
  28. export_433:
  29. 00000044  223C 0004 8004           move.l     D1, 0x48004
  30. 0000004A  600E                     bra        +0x10 /* 0000005A */
  31. export_434:
  32. 0000004C  223C 0004 8008           move.l     D1, 0x48008
  33. 00000052  6006                     bra        +0x8 /* 0000005A */
  34. 00000054  223C 0004 8018           move.l     D1, 0x48018
  35. label0000005A:
  36. 0000005A  7004                     moveq.l    D0, 0x04
  37. 0000005C  6008                     bra        +0xA /* 00000066 */
  38. export_435:
  39. 0000005E  223C 0014 8000           move.l     D1, 0x148000
  40. 00000064  7005                     moveq.l    D0, 0x05
  41. label00000066:
  42. 00000066  526D FE66                addq.w     [A5 - 0x19A], 1
  43. 0000006A  41FA 0050                lea.l      A0, [PC + 0x50 /* 000000BC, value 0x0, cstring "" */]
  44. 0000006E  48D0 1810                movem.l    [A0], D4,A3,A4
  45. 00000072  2801                     move.l     D4, D1
  46. 00000074  2657                     movea.l    A3, [A7]
  47. 00000076  2F3C 5044 4546           move.l     -[A7], 0x50444546 /* 'PDEF' */
  48. 0000007C  3F00                     move.w     -[A7], D0
  49. 0000007E  A9A0                     syscall    GetResource
  50. 00000080  201F                     move.l     D0, [A7]+
  51. 00000082  672A                     beq        +0x2C /* 000000AE */
  52. 00000084  2840                     movea.l    A4, D0
  53. 00000086  08D4 0007                bset.b     [A4], 0x7
  54. 0000008A  2054                     movea.l    A0, [A4]
  55. 0000008C  7000                     moveq.l    D0, 0x00
  56. 0000008E  1004                     move.b     D0, D4
  57. 00000090  D1C0                     add.l      A0, D0
  58. 00000092  4E90                     jsr        [A0]
  59. 00000094  4A44                     tst.w      D4
  60. 00000096  6A00 0006                bpl        +0x8 /* 0000009E */
  61. 0000009A  0894 0007                bclr.b     [A4], 0x7
  62. label0000009E:
  63. 0000009E  224B                     movea.l    A1, A3
  64. 000000A0  41FA 001A                lea.l      A0, [PC + 0x1A /* 000000BC, value 0x0, cstring "" */]
  65. 000000A4  4CD0 1810                movem.l    D4,A3,A4, [A0]
  66. 000000A8  536D FE66                subq.w     [A5 - 0x19A], 1
  67. 000000AC  4ED1                     jmp        [A1]
  68. label000000AE:
  69. 000000AE  33FC FF40 0000 0944      move.w     [0x00000944 /* PrintErr */], 0xFF40
  70. 000000B6  4844                     swap.w     D4
  71. 000000B8  DEC4                     add.w      A7, D4
  72. 000000BA  60E2                     bra        -0x1C /* 0000009E */
  73. 000000BC  0000 0000                ori.b      D0, 0x0
  74. 000000C0  0000 0000                ori.b      D0, 0x0
  75. 000000C4  0000 0000                ori.b      D0, 0x0
  76. fn000000C8:
  77. 000000C8  703B                     moveq.l    D0, 0x3B
  78. label000000CA:
  79. 000000CA  4267                     clr.w      -[A7]
  80. 000000CC  51C8 FFFC                dbf        D0, -0x6 /* 000000CA */
  81. 000000D0  41FA 0014                lea.l      A0, [PC + 0x14 /* 000000E6, value 0x62E5052, pstring ".PRINT" */]
  82. 000000D4  2F48 0012                move.l     [A7 + 0x12], A0
  83. 000000D8  204F                     movea.l    A0, A7
  84. 000000DA  A000                     syscall    Open/PBHOpen/HOpen
  85. 000000DC  DEFC 0078                add.w      A7, 0x78 /* 'x' */
  86. 000000E0  31C0 0944                move.w     [0x00000944 /* PrintErr */], D0
  87. 000000E4  4E75                     rts
  88. 000000E6  062E 5052 494E           addi.b     [A6 + 0x494E], 0x52 /* 'R' */
  89. 000000EC  5400                     addq.b     D0, 2
  90. export_436:
  91. 000000EE  526D FE66                addq.w     [A5 - 0x19A], 1
  92. 000000F2  61D4                     bsr        -0x2A /* 000000C8 */
  93. 000000F4  663A                     bne        +0x3C /* 00000130 */
  94. 000000F6  7200                     moveq.l    D1, 0x00
  95. 000000F8  6006                     bra        +0x8 /* 00000100 */
  96. export_437:
  97. 000000FA  526D FE66                addq.w     [A5 - 0x19A], 1
  98. 000000FE  7201                     moveq.l    D1, 0x01
  99. label00000100:
  100. 00000100  594F                     subq.w     A7, 4
  101. 00000102  2F3C 5354 5220           move.l     -[A7], 0x53545220 /* 'STR ' */
  102. 00000108  3F3C E000                move.w     -[A7], 0xE000
  103. 0000010C  A9A0                     syscall    GetResource
  104. 0000010E  201F                     move.l     D0, [A7]+
  105. 00000110  6730                     beq        +0x32 /* 00000142 */
  106. 00000112  2240                     movea.l    A1, D0
  107. 00000114  554F                     subq.w     A7, 2
  108. 00000116  08D1 0007                bset.b     [A1], 0x7
  109. 0000011A  2F11                     move.l     -[A7], [A1]
  110. 0000011C  A997                     syscall    OpenResFile
  111. 0000011E  301F                     move.w     D0, [A7]+
  112. 00000120  0891 0007                bclr.b     [A1], 0x7
  113. 00000124  6110                     bsr        +0x12 /* 00000136 */
  114. 00000126  4A41                     tst.w      D1
  115. 00000128  6706                     beq        +0x8 /* 00000130 */
  116. 0000012A  3F00                     move.w     -[A7], D0
  117. 0000012C  A99A                     syscall    CloseResFile
  118. 0000012E  6106                     bsr        +0x8 /* 00000136 */
  119. label00000130:
  120. 00000130  536D FE66                subq.w     [A5 - 0x19A], 1
  121. 00000134  4E75                     rts
  122. fn00000136:
  123. 00000136  31F8 0A60 0944           move.w     [0x00000944 /* PrintErr */], [0x00000A60 /* ResErr */]
  124. 0000013C  6702                     beq        +0x4 /* 00000140 */
  125. 0000013E  584F                     addq.w     A7, 4
  126. label00000140:
  127. 00000140  4E75                     rts
  128. label00000142:
  129. 00000142  31FC FF40 0944           move.w     [0x00000944 /* PrintErr */], 0xFF40
  130. 00000148  60E6                     bra        -0x18 /* 00000130 */
  131.